﻿Imports BUS
Imports DTO
Public Class frmLapBaoCaoTongKetHocKy

    Private Sub btnBaoCao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaoCao.Click
        gridViewTongKetHK.Columns.Clear()
        gridViewTongKetHK.DataSource = LopHocBus.LayDSTongKetHK(cbbHocKy.SelectedValue)
    End Sub
    Private Sub LoadHocKy()
        Dim hkBus As New HocKyBus()
        Dim ds As List(Of HocKyDto)
        ds = hkBus.LayDSHocKy()
        cbbHocKy.DataSource = ds
        cbbHocKy.ValueMember = "MaHK"
        cbbHocKy.DisplayMember = "TenHocKy"
    End Sub
    Private Sub frmLapBaoCaoTongKetHocKy_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            LoadHocKy()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub
End Class